﻿Imports JuegosLanBackend

Public Class ListarEvento

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim negocio As New EventoNegocio


        Dim eventos = negocio.listar()
        Me.dgvCategorias.DataSource = eventos
        Me.dgvCategorias.EditMode = False

        Me.dgvCategorias.Columns(0).HeaderText = "IdEvento"
        Me.dgvCategorias.Columns(1).HeaderText = "Distrito_idDistrito"
        Me.dgvCategorias.Columns(2).HeaderText = "Empleado_idEmpleado"
        Me.dgvCategorias.Columns(3).HeaderText = "Juego_idJuego"
        Me.dgvCategorias.Columns(4).HeaderText = "Nombre_evento"
        Me.dgvCategorias.Columns(5).HeaderText = "Fecha_realizacion"
        Me.dgvCategorias.Columns(6).HeaderText = "Hora"
        Me.dgvCategorias.Columns(7).HeaderText = "Encargado"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Me.Visible = False
    End Sub
End Class